| 论坛管理 | |
|---|---|
|
注意： |
|
| 论坛操作选项 | 论坛管理首页 | 新建论坛版面 | 模板风格批量设置 | 一级分类排序 | N级分类排序 | 复位所有版面 | 重建版面缓存 |
| 论坛版面 | 操作 |
|---|---|
| "
if SQL(3,iii)>0 then
for i=1 to SQL(3,iii)
Response.Write " "
next
end if
if SQL(4,iii)>0 then
Response.Write " |
添加版面 | 基本设置 | 高级设置 <% 'if reBoard_Setting(2)=0 then ' MoreMenu=MoreMenu & "" 'elseif reBoard_Setting(2)=0 and reBoard_Setting(46)>0 then ' MoreMenu=MoreMenu & "" 'elseif reBoard_Setting(2)=1 and reBoard_Setting(46)>0 then ' MoreMenu=MoreMenu & "" 'end if MoreMenu=MoreMenu & "" if SQL(4,iii)=0 then MoreMenu=MoreMenu & "" else MoreMenu=MoreMenu & "" end if MoreMenu=MoreMenu & "" If SQL(2,iii)=0 Then MoreMenu=MoreMenu & "" End If %> | >更多操作 <% if reBoard_Setting(2)=1 then Response.Write "认证用户" end if %> |
<% end sub sub add() dim rs_c Dim forum_sid,forum_cid,Style_Option,TempOption Dim iCssName,iCssID,iStyleName set rs_c= server.CreateObject ("adodb.recordset") sql = "select * from dv_board order by rootid,orders" rs_c.open sql,conn,1,1 dim boardnum set rs = server.CreateObject ("Adodb.recordset") sql="select Max(boardid) from dv_board" rs.open sql,conn,1,1 if rs.eof and rs.bof then boardnum=1 else boardnum=rs(0)+1 end if if isnull(boardnum) then boardnum=1 if boardnum=444 then boardnum=445 if boardnum=777 then boardnum=778 rs.close %> <% set rs_c=nothing set rs=nothing end sub sub edit() dim rs_c,reBoard_Setting Dim forum_sid,forum_cid,Style_Option,TempOption Dim iCssName,iCssID,iStyleName sql = "select * from dv_board order by rootid,orders" set rs_c=Dvbbs.Execute(sql) sql = "select * from dv_board where boardid="&request("editid") set rs=Dvbbs.Execute(sql) reBoard_Setting=split(rs("Board_setting"),",") forum_sid=rs("sid") forum_cid=rs("cid") %> <% rs.close set rs=nothing set rs_c=nothing end sub Sub Mode() Dim Boarduser Dim BoarduserNum %> <% End Sub '保存编辑论坛认证用户信息 '入口：用户列表字符串 sub savemod() dim boarduser dim boarduser_1 dim userlen dim updateinfo '清理付费论坛过期的认证用户 2005-3-10 Dv.Yz Dim Get_BoardUser_Money, BoardUser_Money Get_BoardUser_Money = False If Clng(Dvbbs.Board_Setting(62))>0 Or Clng(Dvbbs.Board_Setting(63))>0 Then Get_BoardUser_Money = True If trim(request("vipuser"))<>"" then boarduser=request("vipuser") boarduser=split(boarduser,chr(13)&chr(10)) For i = 0 To Ubound(Boarduser) If Not (Boarduser(i) = "" Or Boarduser(i) = " ") Then If Get_BoardUser_Money Then BoardUser_Money = Split(Boarduser(i),"=") If Not DateDiff("d",BoardUser_Money(1),Now()) > Cint(Dvbbs.Board_Setting(64))*30 Then Boarduser_1 = "" & Boarduser_1 & "" & Boarduser(i) & "," End If Else Boarduser_1 = "" & Boarduser_1 & "" & Boarduser(i) & "," End If End If Next userlen=len(boarduser_1) if boarduser_1<>"" then boarduser=left(boarduser_1,userlen-1) updateinfo=" boarduser='"&boarduser&"' " Dvbbs.Execute("update dv_board set "&updateinfo&" where boardid="&request("boardid")) Dv_suc("论坛设置成功!
"
Else
Response.Write "
"
End If
If Sql(2,Bn) = 0 Then
Response.Write ""
End If
Response.Write Sql(3,Bn)
If Sql(1,Bn) > 0 Then
Response.Write "(" & Sql(1,Bn) & ")"
End If
'Percount = Dvbbs.Execute("SELECT COUNT(*) FROM Dv_BoardPermission WHERE Boardid = " & Sql(4,Bn))(0)
%>